home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 3.iso / dist / fw_mc.idb / usr / freeware / lib32 / mc / extfs / a.z / a
Text File  |  2002-07-08  |  3KB  |  103 lines
  1. #! /usr/bin/perl
  2. #
  3. # External filesystem for mc, using mtools
  4. # Written Ludek Brukner <lubr@barco.cz>, 1997
  5. # Much improved by Tom Perkins <968794022@noid.net>, 2000
  6. #
  7. # WARNING - This software is ALPHA - Absolutely NO WARRANTY
  8. # 
  9.  
  10. # These mtools components must be in PATH for this to work
  11. $mmd = "mmd";
  12. $mrd = "mrd";
  13. $mdel = "mdel";
  14. $mdir = "mdir -a";
  15. $mcopy = "mcopy -noQ";
  16.  
  17. $0 =~ s|.*/||;
  18. $disk = $0;
  19.  
  20. SWITCH: for ( $ARGV[0] ) {
  21.   /list/ && do {
  22.     @dirs = get_dirs("");
  23.     while ($dir = shift(@dirs)) {
  24.       push @dirs, get_dirs("$dir/");
  25.     } exit 0; };
  26.   /mkdir/ && do {
  27.     shift; shift;
  28.     exit 1 if scalar(@ARGV) != 1;
  29.     system("$mmd $disk:/$ARGV[0] >& /dev/null");
  30.     exit 0; };
  31.   /rmdir/ && do {
  32.     shift; shift;
  33.     exit 1 if scalar(@ARGV) != 1;
  34.     system("$mrd $disk:/$ARGV[0] >& /dev/null");
  35.     exit 0; };
  36.   /rm/ && do {
  37.     shift; shift;
  38.     exit 1 if scalar(@ARGV) != 1;
  39.     system("$mdel $disk:/$ARGV[0] >& /dev/null");
  40.     exit 0; };
  41.   /copyout/ && do {
  42.     shift; shift;
  43.     exit 1 if scalar(@ARGV) != 2;
  44.     ( $src, $dest ) = @ARGV;
  45.     system("$mcopy $disk:/$src $dest >& /dev/null");
  46.     exit 0; };
  47.   /copyin/ && do {
  48.     shift; shift;
  49.     exit 1 if scalar(@ARGV) != 2;
  50.     ( $dest, $src ) = @ARGV;
  51.     system("$mcopy $src $disk:/$dest >& /dev/null");
  52.     exit 0; };
  53.   /.*/ && do {                               # an unfamiliar command
  54.     exit 1; };
  55. }
  56.  
  57. sub get_dirs {
  58.   my ($path, $name, $size, $date, $time, $longname, @lst, @rv);
  59.  
  60.   $path = shift(@_);
  61.   @rv = ();
  62.  
  63.   open(FILE,"$mdir $disk:/$path |");
  64.   while ( <FILE> ) {
  65.     chomp();
  66.     /^ / && next;                            # ignore `non-file' lines
  67.     m{^Directory for $0:/}i && next;         # ignore `non-file' lines
  68.     /^$/ && next;                            # ignore empty lines
  69.     /^\.\.?/ && next;                        # ignore `.' and `..'
  70.  
  71.     $name = substr($_,0,12);
  72.     $name =~ s/^([^ ]*) +([^ ]+)[ \t]*$/$1.$2/;
  73.     $name =~ s/[ .]+$//;
  74.  
  75.     $_ = substr($_,12);
  76.     s/^[ ]+//;
  77.  
  78.     ($size,$date,$time,$longname) = split(/[ \t]+/);
  79.  
  80.     @lst = split(/([:ap])/, $time);
  81.     $lst[0] += 12 if ($lst[3] eq "p");
  82.     $time = sprintf("%02d:%02d", $lst[0], $lst[2]);
  83.     @lst = split(/-/, $date);
  84.     $lst[2] %= 100 if ($lst[2] > 100);
  85.     $date = sprintf ("%02d-%02d-%02d", @lst);
  86.  
  87.     $name = $path . lc(($longname) ? $longname : $name);
  88.  
  89.     if ($size =~ /DIR/) {
  90.       printf("drwxr-xr-x   1 %-8d %-8d %8d %s %s %s\n",
  91.         0, 0, 0, $date, $time, $name);
  92.       push @rv, $name;
  93.     } else {
  94.       printf("-rw-r--r--   1 %-8d %-8d %8d %s %s %s\n",
  95.         0, 0, $size, $date, $time, $name);
  96.     }
  97.   }
  98.   close(FILE);
  99.   return @rv;
  100. }
  101.  
  102. 1;
  103.